home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / biology / treedraw.sit / Tree Draw Deck / background_8887.txt < prev    next >
Encoding:
Text File  |  1990-06-26  |  3.2 KB  |  151 lines
  1. -- background: 8887 from stack: in
  2. -- bmap block id: 4418
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: About.back
  6. ----- HyperTalk script -----
  7.  
  8. on openbackground
  9.   push recent card
  10. end openbackground
  11.  
  12. on fixtext
  13.   -- cut extra spaces and hard returns out of about.text
  14.   put field "text" into old
  15.   put number of lines in old into nline
  16.   put empty into new
  17.   repeat with i = 1 to nline
  18.     set cursor to busy
  19.     put line i of old into iline
  20.     put number of words in iline into nword
  21.     --if char 1 to 5 of iline = "     " then
  22.     --put iline&return after new
  23.     --else
  24.     repeat with j = 1 to nword
  25.       set cursor to busy
  26.       put word j of iline & " " after new
  27.     end repeat
  28.     if nword < 2 then put return after new -- end of paragraph
  29.     --end if
  30.   end repeat
  31.   put new into field "text"
  32.   fixcardname
  33. end fixtext
  34.  
  35. on fixcardname
  36.   put "About." & field "title" into cname
  37.   set name of this card to cname
  38. end fixcardname
  39.  
  40.  
  41.  
  42. -- part 1 (field)
  43. -- low flags: 01
  44. -- high flags: 0000
  45. -- rect: left=105 top=7 right=34 bottom=334
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 0
  49. -- font id: 3
  50. -- text size: 18
  51. -- style flags: 256
  52. -- line height: 24
  53. -- part name: title
  54.  
  55.  
  56. -- part 6 (field)
  57. -- low flags: 01
  58. -- high flags: 2007
  59. -- rect: left=30 top=53 right=313 bottom=482
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 0
  63. -- font id: 20
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 14
  67. -- part name: text
  68.  
  69.  
  70. -- part 14 (button)
  71. -- low flags: 00
  72. -- high flags: 2000
  73. -- rect: left=436 top=9 right=35 bottom=467
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 9301 / 9301
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: Prev
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   visual effect wipe right
  85.   go to previous card
  86. end mouseUp
  87.  
  88.  
  89.  
  90.  
  91. -- part 15 (button)
  92. -- low flags: 00
  93. -- high flags: 2000
  94. -- rect: left=465 top=9 right=35 bottom=493
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 27009 / 27009
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: Next
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   visual effect wipe left
  106.   go to next card
  107. end mouseUp
  108.  
  109.  
  110.  
  111.  
  112. -- part 16 (button)
  113. -- low flags: 00
  114. -- high flags: 2000
  115. -- rect: left=395 top=6 right=38 bottom=434
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 5059 / 5059
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: File
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   --XCMD WriteToFile container,<usePathname>,<"name">,<append>,<creator>
  127.   global fileCreator
  128.   put fld "title" into filename
  129.   writeToFile field "text",FALSE,fileName,false,FileCreator
  130. end mouseUp
  131.  
  132.  
  133.  
  134. -- part 17 (button)
  135. -- low flags: 00
  136. -- high flags: 2000
  137. -- rect: left=351 top=1 right=37 bottom=394
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 1008 / 1008
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Print
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   printfield "field text"
  149. end mouseUp
  150.  
  151.